Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ
Những câu hỏi liên quan
9 tháng 5 2021 lúc 17:03
Đề: Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ \(a_1\) , \(a_2\) , ... , \(a_n\) . In ra màn hình tổng các số lẻ có trong dãy số.
P/S: Mọi người giúp mình với, mình đang cần gắp lắm ạ!
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình Nhập dãy số nguyên từ bàn phím. In ra màn hình các số lẻ có trong dãy được nhận. Tính tổng các số có trong dãy và in ra màn hình
Python:
n = input("Nhập dãy số nguyên: ").split()
n = [int(i) for i in n]
so_le = [i for i in n if i % 2 != 0]
tong = sum(n)
print("Các số lẻ trong dãy là: ", so_le)
print("Tổng các số trong dãy là: ", tong)
Pascal:
program tongvasole;
const
MAX_SIZE = 1000;
var
numbers: array[1..MAX_SIZE] of Integer;
count, i: Integer;
total: Integer;
begin
Write('Nhập số lượng phần tử trong dãy: ');
ReadLn(count);
for i := 1 to count do
begin
Write('Nhập phần tử thứ ', i, ': ');
ReadLn(numbers[i]);
end;
Write('Các số lẻ trong dãy là: ');
total := 0;
for i := 1 to count do
begin
if numbers[i] mod 2 <> 0 then
Write(numbers[i], ' ');
total := total + numbers[i];
end;
WriteLn;
WriteLn('Tổng các số trong dãy là: ', total);
end.
Đúng 0
Bình luận (0)
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lể có trong dãy.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 2
Bình luận (0)
#include <stdio.h>
#include <conio.h>
#include <math.h>
int main()
{
int n,i,x[10];
printf("nhap so luong phan tu");
scanf("%d",&n);
for(i=0;i<n;i++)
{
printf("x[%d]",i);
scanf("%d",&x[i]);
}
printf("mang x[i] da nhap vap");
for(i=0;i<n;i++)
{
printf("%2d",x[i]);
} for(i=0;i<n;i++)
{
if(nt(x[i],n)==1)
{
printf("cac so nguyen to co trong mang la %d",x[i]);
}
}
}
int nt(int x[10],int n)
{
int i,j;
int kt;
for(i=0;i<n;i++)
{
kt=1;
for(j=2;j<x[i];j++)
{
if(x[i]%j==0) kt=0;
}
}
if(kt)
{
return 1;
}
else
{
return 0;
}
}
Đúng 0
Bình luận (0)
giúp em với ạ!
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số A1, A2,...An. đưa ra màn hình tổng các số nguyên chẵn của dãy số.
Program HOC24;
var i,n: byte;
A: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(N);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
Đúng 1
Bình luận (0)
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình có bao nhiêu giá trị là số lẻ
Program HOC24;
var d,i,n: integer;
a: array[1..1000] of integer;
begin
write('Nhap do dai cua day: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 2=1 then d:=d+1;
write('Co tat ca ',d,' gia tri le');
readln
end.
Đúng 1
Bình luận (0)
sử dụng biến mảng Viết chương trình nhập vào dãy số gồm n số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó Giúp mình với
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
1 Hãy viết chương trình nhập vào một dãy số ,in ra màn hình các số chẵn có trong dãy số ,với độ dài dãy số được nhập vào từ bàn phím 2 Hãy viết chương trình nhập vào một dãy số , in ra màn hình trung bình cộng của các phần tử trong dãy số với độ dài...
Xem chi tiết
Bạn ơi giúp mình với chiều nay mình thi rồi
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình có bao nhiêu giá trị là số lẻ.
uses crt;
var a:array[1..1000000] of longint;
n,i,d:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=1 then inc(d);
end;
write('Co ',d,' gia tri la so le');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số lẻ.
uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
readln;
end.
Đúng 1
Bình luận (0)